home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.02 Feb 87 / Basic Benchmarks / Z-BASIC Programs / line-ROM < prev    next >
Encoding:
Text File  |  1986-10-27  |  601 b   |  25 lines  |  [TEXT/ZBAS]
  1. 00010 PRINT "Horizontal Line"
  2. 00020 start = TIMER   
  3. 00030 FOR i% = 1 TO 40
  4. 00040 FOR j% = 0 TO 200 STEP 3
  5. 00050 NEXT j%
  6. 00060 NEXT i%
  7. 00070 finish = TIMER
  8. 00080 overhead = finish - start
  9. 00090 start = TIMER
  10. 00100 FOR i% = 1 TO 40
  11. 00110 FOR j% = 0 TO 200 STEP 3
  12. 00115 CALL MOVETO (i%,i%)
  13. 00120 CALL LINETO (j%+i%,i%)
  14. 00125 CALL MOVETO (i%,i%)
  15. 00130 CALL LINETO (j%+i%,i%)
  16. 00140 NEXT j%
  17. 00150 NEXT i%
  18. 00160 finish = TIMER
  19. 00170 PRINT "finish = ";finish
  20. 00180 PRINT "start  = ";start
  21. 00190 PRINT "Overhead = ";overhead
  22. 00200 PRINT ((finish - start)-overhead); " seconds"
  23. 00210 WHILE INKEY$ = "" : WEND
  24.  
  25.